APPENDIX 
Computer Programs and Sample Run 



VN0RMW1V 

[03 X+NORM N\Z%T\R 

[13 n 

C 23 ft 961204.1712 

[3] ft GENERATE N NORMAL RANDOM VARIABLES » MEAN 0, SIGMA 

[43 ft 0B21 15 fliM 

[5] 2*2. NT* 2 

[6] Z+Zp{ v 10000 )x? (x/Z)p 10000 

[73 2*(02)x2[l;] 

[83 I?*(-2x©£[2;3 )*0.5 

[93 X+N+Al l°*xR)*2 l°.oT 

V 1996-12-10 11*00.01 {GMT-*) 

VDELRES101V 

[0 3 JMT DELRES X;N;I 

[13 ft ? % 

[23 ft 000323.2241 

[3 3 ft DELAY RESIDUALS 

[4 3 #*pX 

[53 i?*oxr 

[63 RZiNl+YLiNl 

[73 1*0 

[8 3 JTJECTI* 1*1+1 

[93 j?tir+r3*rcjr+i]-*cjr+r-xj]+.xj 

[10 3 +NEXTI* \I<(pY)~N 

[113 #*#*2? 

V 2000-03-25 22.51.47 (^2 T -4) 

V#IS[03V 

[03 XB+XD NLS RES%X%kX%R%P%JiLRiAiB%D%EMiE%I%EE%AA 

[13 ft iRESi 

[23 ft 800225.0914 800820 000321.1532 

[33 ft NONLINEAR LEAST SQUARES 

[43 ft CHAR. VECT. RES IS RESIDUAL FUNCTION NAME 

[53 X+XDLlil 

[63 LX^XDHxl 
[7 3 

1 8 3 X*0 

[93 NEXTI:I+I+1 

[10 3 R+±RES 9 ' JP 

[113 ft (5 1 BHaJHJS, »<* AJ) * 

[123 ft tf#*#tf»(*/ + /<i?*2) 9 [0.531)*0.5 

[13 3 (*/ + /(jB*2),C0.5]1)*0.5 

[14 3 ft ANALYTIC RESIDUAL PARTI ALS 

[153 ft P+s>{RES 9 'P' )» 1 X' 

[16 3 pi+ANPAR 

[17 3 ft CALCULATE P, 4 AtfZ> B 

[183 ft (P 4 BKiKflf/d AJT)» 

[19 3 ft -+CALCRAB 

[20 3 ft NUMERIC RESIDUAL PARTI ALS 

[213 P* ,? 

[22 3 «r*o 

[23 3 NBXTJ*.J+J+1 

[243 hR+i&RES,* X+LXUl*J^\pX< 

[25 3 P*P,AP*AJ[J3 
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[26] +NEXTJ*iJ<pX 

[27] P+*((pJT) f (pPHpJOpP 

[ 28 ] ANPAB :AH§P)+. *P 

[29] B«-($P)+.xfl 

[30] CALCEAB : 

[31] 1K*(((0 l+p4)p4)[;l]+l#-10)*0.5 

[32] 4il^(ilxDo # xI?) + i«-l0x(pA)pl 9 0xil 

[33] Jr^X-Dx(DxB)ffl^ 

[34] +NEXTI*iI<3 

[35] R+&RES, * AT' 

[36] ft <P ii B)+±RES 9 "(JST AJT) 1 

[37] JSW-*"f/+/P 9 C0.5 3l 

[38] tf+(*/+/(P*2),[0.5]l)*0.5 

[39] ««-<jr f Hf), C0.5]*x(<(0 l + p^)p(£o.xD)xi^)[;l],l)*0.5 

[HO] ft 

[HI] £ 

[42] ft * ' 

[43] ft X£ 

[44] ft *JITMTJxiJ<20 

[45] ft RB+B 

V 2000-03-29 23.00.55 (GMT-*) 

[45] ft 

[45] RR+R 

[46] V 



pjr5*JKM?itf 100000 

100000 

D*5-«-(*/ + /((J5)*2) B C.5]l)*.5 

1.002357739 

pJCr5^5C3 + i99997] + .lxJSr5[( 199997)*. +"l+x4] + .xl 0 10 

99997 

0-*-jr*(*/+/((JJ5-3+J5)*2) t [.5]l)*. 5 

0.1418755036 

20xl{)©5*# 
16.98230664 

(2 3p0 0 0 .001 .001 .OODJTIS 'JHT5 DELRES* 
1.011856929 
1.002412348 
1.00237057 
1.002370568 

0.09898411424 0.001084301862 0.09780 701046 0.008745036907 
0.003147221067 0.003163105505 0.003146911359 1.002370568 

!>#<-(*/+/( (PB-6+JT5)*2) t [.5]!)*. 5 
0.002841730873 

20xlO©S*# 
50.94879605 
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